Untitled

library(googleLanguageR)

## Successfully auto-authenticated via /Users/kevinwang/scpworkshop-53b88279cf76.json

library(tidyverse)

## ── Attaching packages ─────────────────────────────────────────── tidyverse 1.3.0 ──

## ✓ ggplot2 3.3.0     ✓ purrr   0.3.3
## ✓ tibble  3.0.0     ✓ dplyr   0.8.5
## ✓ tidyr   1.0.2     ✓ stringr 1.4.0
## ✓ readr   1.3.1     ✓ forcats 0.5.0

## ── Conflicts ────────────────────────────────────────────── tidyverse_conflicts() ──
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

library(lubridate)

## 
## Attaching package: 'lubridate'

## The following object is masked from 'package:base':
## 
##     date

g_sentiments = read_rds("data/g_sentiments_cnn_bbc_fox.rds")

g_sentiments %>% 
  dplyr::filter(year(created_at) == 2020) %>% 
  ggplot(aes(x = created_at, y = score,
             colour = screen_name)) +
  geom_line()

g_sentiments %>% 
  dplyr::filter(year(created_at) == 2020,
                str_detect(tolower(text), "covid|virus|coronavirus")) %>% 
  ggplot(aes(x = created_at, y = abs(score),
             colour = screen_name)) +
  geom_line(alpha = 0.5) +
  geom_smooth(method = "loess")

## `geom_smooth()` using formula 'y ~ x'

g_sentiments %>% 
  dplyr::filter(year(created_at) == 2020,
                str_detect(tolower(text), "covid|virus|coronavirus")) %>% 
  ggplot(aes(x = created_at, y = magnitude,
             colour = screen_name)) +
  geom_line(alpha = 0.5) +
  geom_smooth(method = "loess")

## `geom_smooth()` using formula 'y ~ x'

r_sentiment = read_rds("data/r_sentiments_cnn_bbc_fox.rds")

p = r_sentiment %>% 
  dplyr::mutate(corona = str_detect(tolower(text), "covid|virus|coronavirus")) %>% 
  ggplot(aes(x = score, y = r_sent, text = text,
             colour = corona, group = corona)) +
  geom_point(alpha = 0.4) +
  geom_smooth(method = "lm", se = FALSE) +
  ggpubr::stat_cor() +
  facet_wrap(~screen_name)

p

## `geom_smooth()` using formula 'y ~ x'

library(plotly)

## 
## Attaching package: 'plotly'

## The following object is masked from 'package:ggplot2':
## 
##     last_plot

## The following object is masked from 'package:stats':
## 
##     filter

## The following object is masked from 'package:graphics':
## 
##     layout

ggplotly(p)

## `geom_smooth()` using formula 'y ~ x'